home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d7 / apcp38.arc / TXHOU.ASP < prev    next >
Text File  |  1991-01-09  |  8KB  |  385 lines
  1. goto init
  2.  
  3. dial:
  4. strcmp s4 "        "
  5. if success
  6. return
  7. endif
  8. isfile s4
  9. if success
  10. return
  11. endif
  12. clear
  13. box 00 00 02 79 n9
  14. atsay 00 08 n9 "╤══════════╤═════════════════════════════╤"
  15. atsay 01 08 n9 "│          │                             │"
  16. atsay 02 08 n9 "╧══════════╧═════════════════════════════╧"
  17. atsay 01 02 n8 "TXHOU"
  18. atsay 01 10 n8 s4
  19. atsay 01 21 n8 "Houston, TX             713"
  20. atsay 01 51 n8 s5
  21. locate 05 00
  22. transmit "I^m"
  23. pause 1
  24. transmit "ATZ^m"
  25. waitfor "OK"
  26. transmit "^E^m"
  27. waitfor "READY"
  28. transmit "D"
  29. transmit S4
  30. transmit "^m"
  31. rget s1
  32. rget s1 80 40
  33. rget s1 40 40
  34. rget s1 40 40
  35.  
  36. mess:
  37. find s1 "BUSY"
  38. if found
  39. strcpy s9 "M"
  40. return
  41. endif
  42. find s1 "ANSWER TONE"
  43. if found
  44. clear
  45. log open s4
  46. alarm 2
  47. exit
  48. endif
  49. find s1 "RINGING"
  50. if found
  51. rget s1
  52. find s1 "RINGING"
  53. if not found
  54. goto mess
  55. else
  56. log open s4
  57. message "APCP: No answer - still ringing"
  58. log close
  59. transmit "^C^D^C"
  60. endif
  61. else
  62. endif
  63. return
  64.  
  65. top:
  66. find s0 "A"
  67. if found
  68. strcpy s4 "664-0222"
  69. strcpy s5 "The Last Stop              "
  70. gosub dial
  71. endif
  72. find s0 "B"
  73. if found
  74. strcpy s4 "392-4249"
  75. strcpy s5 "Big Blue                   "
  76. gosub dial
  77. endif
  78. find s0 "C"
  79. if found
  80. strcpy s4 "661-9040"
  81. strcpy s5 "TBL COMM                   "
  82. gosub dial
  83. endif
  84. find s0 "D"
  85. if found
  86. strcpy s4 "326-2999"
  87. strcpy s5 "Yellow Rose                "
  88. gosub dial
  89. endif
  90. find s0 "E"
  91. if found
  92. strcpy s4 "978-3554"
  93. strcpy s5 "Artichoke                  "
  94. gosub dial
  95. endif
  96. find s0 "F"
  97. if found
  98. strcpy s4 "448-1406"
  99. strcpy s5 "PC-Board                   "
  100. gosub dial
  101. endif
  102. find s0 "G"
  103. if found
  104. strcpy s4 "481-0455"
  105. strcpy s5 "The Last Resort BBS        "
  106. gosub dial
  107. endif
  108. find s0 "H"
  109. if found
  110. strcpy s4 "955-7564"
  111. strcpy s5 "PC Eve                     "
  112. gosub dial
  113. endif
  114. find s0 "I"
  115. if found
  116. strcpy s4 "999-6293"
  117. strcpy s5 "Ramshackle                 "
  118. gosub dial
  119. endif
  120. find s0 "J"
  121. if found
  122. strcpy s4 "488-7179"
  123. strcpy s5 "PC Palace                  "
  124. gosub dial
  125. endif
  126. find s0 "K"
  127. if found
  128. strcpy s4 "301-2258"
  129. strcpy s5 "Archimede's Lever          "
  130. gosub dial
  131. endif
  132. find s0 "L"
  133. if found
  134. strcpy s4 "482-5526"
  135. strcpy s5 "Seabrook BBS               "
  136. gosub dial
  137. endif
  138. find s0 "M"
  139. if found
  140. strcpy s4 "280-8711"
  141. strcpy s5 "NASA Activities            "
  142. gosub dial
  143. endif
  144. find s0 "N"
  145. if found
  146. strcpy s4 "324-3416"
  147. strcpy s5 "Big Boy's BBS              "
  148. gosub dial
  149. endif
  150. find s0 "O"
  151. if found
  152. strcpy s4 "333-2309"
  153. strcpy s5 "Campus Link-Up             "
  154. gosub dial
  155. endif
  156. find s0 "P"
  157. if found
  158. strcpy s4 "433-6395"
  159. strcpy s5 "CHUG BBS                   "
  160. gosub dial
  161. endif
  162. find s0 "Q"
  163. if found
  164. strcpy s4 "479-5754"
  165. strcpy s5 "Legion Microcomputer Exch  "
  166. gosub dial
  167. endif
  168. find s0 "R"
  169. if found
  170. strcpy s4 "484-0405"
  171. strcpy s5 "Modemvation, Jr.           "
  172. gosub dial
  173. endif
  174. find s0 "S"
  175. if found
  176. strcpy s4 "484-8090"
  177. strcpy s5 "Net Works SSPC             "
  178. gosub dial
  179. endif
  180. find s0 "T"
  181. if found
  182. strcpy s4 "523-7255"
  183. strcpy s5 "Modula 2                   "
  184. gosub dial
  185. endif
  186. find s0 "U"
  187. if found
  188. strcpy s4 "583-0001"
  189. strcpy s5 "NEC/Delta Computer         "
  190. gosub dial
  191. endif
  192. find s0 "V"
  193. if found
  194. strcpy s4 "583-1287"
  195. strcpy s5 "RBBS HUG BBS               "
  196. gosub dial
  197. endif
  198. find s0 "W"
  199. if found
  200. strcpy s4 "630-0068"
  201. strcpy s5 "Ram: Data Link             "
  202. gosub dial
  203. endif
  204. find s0 "X"
  205. if found
  206. strcpy s4 "682-4194"
  207. strcpy s5 "Clone Master I             "
  208. gosub dial
  209. endif
  210. find s0 "Y"
  211. if found
  212. strcpy s4 "772-2090"
  213. strcpy s5 "Programmer's Workshop      "
  214. gosub dial
  215. endif
  216. find s0 "Z"
  217. if found
  218. strcpy s4 "869-9142"
  219. strcpy s5 "Heath User's Group         "
  220. gosub dial
  221. endif
  222. find s0 "0"
  223. if found
  224. strcpy s4 "890-0310"
  225. strcpy s5 "Compaq Corporation         "
  226. gosub dial
  227. endif
  228. find s0 "1"
  229. if found
  230. strcpy s4 "937-7258"
  231. strcpy s5 "After Hours Night Club     "
  232. gosub dial
  233. endif
  234. find s0 "2"
  235. if found
  236. strcpy s4 "955-8120"
  237. strcpy s5 "PC Interconnection         "
  238. gosub dial
  239. endif
  240. find s0 "3"
  241. if found
  242. strcpy s4 "451-1421"
  243. strcpy s5 "RTPM Tri-Houston RBBS      "
  244. gosub dial
  245. endif
  246. find s0 "4"
  247. if found
  248. strcpy s4 "523-5818"
  249. strcpy s5 "HAL PC #1                  "
  250. gosub dial
  251. endif
  252. find s0 "5"
  253. if found
  254. strcpy s4 "583-7848"
  255. strcpy s5 "Scoreboard                 "
  256. gosub dial
  257. endif
  258. find s0 "6"
  259. if found
  260. strcpy s4 "694-3150"
  261. strcpy s5 "SCS Hotline                "
  262. gosub dial
  263. endif
  264. find s0 "7"
  265. if found
  266. strcpy s4 "726-0106"
  267. strcpy s5 "Technical BBS              "
  268. gosub dial
  269. endif
  270. find s0 "8"
  271. if found
  272. strcpy s4 "941-1059"
  273. strcpy s5 "RTPM Epson Net             "
  274. gosub dial
  275. endif
  276. find s0 "9"
  277. if found
  278. strcpy s4 "        "
  279. strcpy s5 "                           "
  280. gosub dial
  281. endif
  282. find s0 "@"
  283. if found
  284. strcpy s4 "        "
  285. strcpy s5 "                           "
  286. gosub dial
  287. endif
  288. find s0 "#"
  289. if found
  290. strcpy s4 "        "
  291. strcpy s5 "                           "
  292. gosub dial
  293. endif
  294. find s0 "$"
  295. if found
  296. strcpy s4 "        "
  297. strcpy s5 "                           "
  298. gosub dial
  299. endif
  300. find s0 "%"
  301. if found
  302. strcpy s4 "        "
  303. strcpy s5 "                           "
  304. gosub dial
  305. endif
  306. find s0 "&"
  307. if found
  308. strcpy s4 "        "
  309. strcpy s5 "                           "
  310. gosub dial
  311. endif
  312. find s0 "*"
  313. if found
  314. strcpy s4 "996-9452"
  315. strcpy s5 "Texas Goldmine             "
  316. gosub dial
  317. endif
  318. find s9 "M"
  319. if found
  320. strcpy s9 " "
  321. goto top
  322. endif
  323. clear
  324. box 00 00 02 79 n9
  325. atsay 01 02 n8 "APCP: All numbers connected / didn't answer ... terminating ..."
  326. locate 05 00
  327. alarm 2
  328. exit
  329.  
  330. init:
  331. strcpy s9 " "
  332. log close
  333. clear
  334. init n9 07
  335. init n8 07
  336. box 00 00 22 38 n9
  337. box 00 41 22 79 n9
  338. atsay 01 02 n8 "A The Last Stop .......... 664-0222"
  339. atsay 02 02 n8 "B Big Blue ............... 392-4249"
  340. atsay 03 02 n8 "C TBL COMM ............... 661-9040"
  341. atsay 04 02 n8 "D Yellow Rose ............ 326-2999"
  342. atsay 05 02 n8 "E Artichoke .............. 978-3554"
  343. atsay 06 02 n8 "F PC-Board ............... 448-1406"
  344. atsay 07 02 n8 "G The Last Resort BBS .... 481-0455"
  345. atsay 08 02 n8 "H PC Eve ................. 955-7564"
  346. atsay 09 02 n8 "I Ramshackle ............. 999-6293"
  347. atsay 10 02 n8 "J PC's Palace ............ 488-7179"
  348. atsay 11 02 n8 "K Archimede's Lever ...... 301-2258"
  349. atsay 12 02 n8 "L Seabrook BBS ........... 482-5526"
  350. atsay 13 02 n8 "M NASA Activities ........ 280-8711"
  351. atsay 14 02 n8 "N Big Boy's BBS .......... 324-3416"
  352. atsay 15 02 n8 "O Campus Link-Up ......... 333-2309"
  353. atsay 16 02 n8 "P CHUG BBS ............... 433-6395"
  354. atsay 17 02 n8 "Q Legion Micro Comp. Exc . 479-5754"
  355. atsay 18 02 n8 "R Modemvation, Jr ........ 484-0405"
  356. atsay 19 02 n8 "S Net Works SSPC ......... 484-8090"
  357. atsay 20 02 n8 "T Modula 2 ............... 523-7255"
  358. atsay 21 02 n8 "U NEC/Delta Computer ..... 583-0001"
  359. atsay 01 43 n8 "V RBBS Hug BBS ........... 583-1287"
  360. atsay 02 43 n8 "W Ram: Data Link ......... 630-0068"
  361. atsay 03 43 n8 "X Clone Master I ......... 682-4194"
  362. atsay 04 43 n8 "Y Programmer's Workshop .. 772-2090"
  363. atsay 05 43 n8 "Z Heath User's Group ..... 869-9142"
  364. atsay 06 43 n8 "0 Compaq Corporation ..... 890-0310"
  365. atsay 07 43 n8 "1 After Hours Night Club . 937-7258"
  366. atsay 08 43 n8 "2 PC Interconnection ..... 955-8120"
  367. atsay 09 43 n8 "3 RTPM Tri-Houston RBBS .. 451-1421"
  368. atsay 10 43 n8 "4 HAL PC #1 .............. 523-5818"
  369. atsay 11 43 n8 "5 Scoreboard ............. 583-7848"
  370. atsay 12 43 n8 "6 SCS Hotline ............ 694-3150"
  371. atsay 13 43 n8 "7 Technical BBS .......... 726-0106"
  372. atsay 14 43 n8 "8 RTPM Epson Net ......... 941-1059"
  373. atsay 15 43 n8 "9 ........................ ... ...."
  374. atsay 16 43 n8 "@ ........................ ... ...."
  375. atsay 17 43 n8 "# ........................ ... ...."
  376. atsay 18 43 n8 "$ ........................ ... ...."
  377. atsay 19 43 n8 "% ........................ ... ...."
  378. atsay 20 43 n8 "& ........................ ... ...."
  379. atsay 21 43 n8 "* Texas Goldmine ......... 996-9452"
  380. locate 23 00
  381. get s0
  382. goto top
  383. return
  384. 
  385.